PROGRAM tipo enum ;
TYPE
TipoEsportes = ( Futebol , Basquete , Volei ) ;
VAR
Esporte1 , Esporte2 : TipoEsportes;
BEGIN
Esporte1 := Futebol ;
Esporte2 := Basquete ;
{ Perceba que Esporte1 tem o valor Futebol , e nao ‘ Futebol ’ , pois nao setrata de um tipo string. }
IF Esporte1 = Futebol THEN
WHITELN ( ’O primeiro esporte eh Futebol ’ ) ;
END .

